\start83\
\comment=Programm Dateidatum 08/26/01, 15:17
\name=BOUNCER
\file=C:\PROGRA~1\TI-GRA~1\BOUNCER.TXT
ClrHome
Output(2,4,"Weln(
Output(2,7,"Dot
Output(2,7,"c
Output(2,9,"max(
Output(2,10,"e Dot
Output(2,11," t
Output(2,14," 
Output(3,3,"BOUNCER 3.0!
Output(5,4,"BDependAsk
Output(5,5,"y\1\H
Output(5,6," 
Output(5,11,"r\i\
Output(6,2,"van den Bergcd(
Output(6,14,"e  
Pause 
1\->\C
Lbl M
ClrHome
For(X,1,16
Output(2,X,"-
Output(7,X,"-
For(W,1,5
End
End
Output(3,1,"BOUNCER 3.0 Menu
Output(4,4,"START GAME
Output(5,4,"HIGHSCORE
Output(6,7,"QUIT
If C\!=\0
1\->\S
Lbl S
Output(S+3,1,">
Output(S+3,16,"<
getKey\->\K
While K=0
getKey\->\K
End
Output(S+3,1," 
Output(S+3,16," 
If K=105 and S=1
Goto 1
If K=105 and S=2
Goto H
If K=105 and S=3
Goto 2
S+(K=34)-(K=25)\->\S
If S=0
1\->\S
If S=4
3\->\S
Goto S
Lbl 1
ClrHome
Disp " SELECT SPEED:
Disp " -------------
Disp "(1)VERY SLOW
Disp "(2)SLOW
Disp "(3)MEDIUM
Disp "(4)FAST
Disp "(5)VERY FAST
Input "Speed: ",Z
If Z<1 or Z>5
Goto 1
ClrHome
1\->\X
1\->\Y
0\->\S
200\->\T
1\->\D
1\->\E
0\->\V
randInt(2,7\->\A
randInt(2,15\->\B
Output(8,2,"Dot
Output(8,1,"Sc
Output(8,4,"re:
Output(8,7,S
Output(8,9,"T\i\max(
Output(8,12,"e:
Lbl \theta\
0\->\C
While C=0
T-1\->\T
Output(8,14,Ans
If Ans=99
Output(8,16," 
If Ans=9
Output(8,15," 
If Ans\<=\0
1\->\C
getKey\->\K
Output(Y,X," 
X+(Ans=26)-(Ans=24)\->\X
X+(Ans=0)-(Ans=17)\->\X
Y+(K=34)-(K=25)\->\Y
Y+(Y=0)-(Y=8)\->\Y
Output(Ans,X,"\pi\
If K=105
2\->\C
If X=B and Y=A
3\->\C
V+1\->\V
If Ans=6-Z
Then
Output(A-D,B-E," 
Output(A,B,"O
If A=1 or A=7
\(-)\D\->\D
If B=1 or B=16
\(-)\E\->\E
A+D\->\A
B+E\->\B
0\->\V
End
End
If C=1
Goto G
If C=2
Menu("GAME PAUSED","RESUME",\theta\,"MENU",M,"QUIT",2
S+1\->\S
Output(A-D,B-E," 
1\->\D
1\->\E
randInt(2,6\->\A
randInt(2,15\->\B
Output(8,7,S
Goto \theta\
Lbl G
ClrHome
Output(3,4,"----------
Output(4,4,"GAME OVER!
Output(5,4,"----------
Pause 
ClrHome
2\->\dim(\L\HSB
If 0=\L\HSB(1
Then
Output(3,3,"YOU MADE THE
Output(4,1,"FIRST RECORD:
Output(4,15,S
Output(5,3,"POINTS WITH
Output(6,5,"SPEED  !
Output(6,11,Z
S\->\\L\HSB(1
Z\->\\L\HSB(2
Pause 
Goto M
End
If S>\L\HSB(1
Then
Output(2,6,"YIPPY!
Output(3,3,"YOU BROKE THE
Output(4,4,"OLD RECORD
Output(5,3,"WHICH WAS
Output(5,13,\L\HSB(1
Output(6,2,"WITH SPEED  !
Output(6,13,\L\HSB(2
Pause 
ClrHome
Output(3,2,"THE NEW RECORD
Output(4,4,"IS    WITH
Output(4,7,S
Output(5,5,"SPEED  .
Output(5,11,Z
S\->\\L\HSB(1
Z\->\\L\HSB(2
Else
Output(2,2,"SORRY, BUT YOU
Output(3,3,"DIDN'T BREAK
Output(4,2,"THE OLD RECORD
Output(5,3,"WHICH WAS
Output(5,13,\L\HSB(1
Output(6,2,"WITH SPEED  .
Output(6,13,\L\HSB(2
Pause 
ClrHome
Output(3,1,"YOU ONLY SCORED
Output(4,1,S
Output(4,4,"WITH SPEED  .
Output(4,15,Z
End
Pause 
Goto M
Lbl 2
ClrHome
Output(1,1,"
Stop
Lbl H
2\->\dim(\L\HSB
If 0=\L\HSB(1
Then
ClrHome
Output(4,1,"THERE ISN'T MADE
Output(5,1,"ANY RECORD YET!
Pause 
DelVar \L\HSB
Goto M
End
Menu(" ---HIGHSCORE---","SHOW HSCORE",L,"RESET HSCORE",R,"CANCEL",M
Lbl L
ClrHome
Output(3,2,"THE RECORD NOW
Output(4,4,"IS    WITH
Output(4,7,\L\HSB(1
Output(5,5,"SPEED  .
Output(5,11,\L\HSB(2
Pause 
Goto M
Lbl R
Menu("REALLY RESET?","NO",H,"YES",A
Lbl A
DelVar \L\HSB
ClrHome
Output(4,4,"HIGHSCORE
Output(5,4,"RESETTED.
Pause 
Goto M
\stop83\

